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INTERFACE DLOC 
FUNCTION REAL2D(X) 
INTEGER REAL2D 
REAL X(:,:) 
END FUNCTION REAL2D 
END INTERFACE DLOC 



INTERFACE DL0C1 
FUNCTION DC1D(Y) 
INTEGER DC1D 
DOUBLE COMPLEX Y(:) 
END FUNCTION DC1D 
END INTERFACE DL0C1 



INTERFACE DL0C2 
FUNCTION INT3D(Z) 
INTEGER INT3D 
INTEGER Z(:,:,:) 
END FUNCTION INT3D 
END INTERFACE DL0C2 
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ENTRY DC1D(X) 
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END 
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